#delim ;
prog def gphepssj;
version 7.0;
*
 Translate a sequence of .gph files to .eps files
 with the default -xsize- and -ysize- for Stata Journal.
 Author: Roger Newson
 Date: 21 August 2002
*;

local xsdef=3.12;local ysdef=2.392;

disp as text "Default xsize: " as result `xsdef' _n as text "Default ysize: " as result `ysdef';

foreach FN of any `0' {;
  translate `"`FN'.gph"' `"`FN'.eps"' , xsize(`xsdef') ysize(`ysdef') logo(off) replace;
};

end;
